Sub 정렬()

    Dim i As Long
    Dim 정렬범위 As Range
    
    For i = 1 To 3

        Set 정렬범위 = Range("C3:C22")

        With ActiveSheet.Sort
        
            .SortFields.Clear
            .SortFields.Add2 Key:=정렬범위, _
                             Order:=xlDescending
            
            .SetRange 정렬범위
            .Header = xlNo
            .Apply
            
        End With
    
    Next

End Sub